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MAILDEF.SDL = define mail data structures 
Version ‘V04-000' 
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FACILITY: VAX/VMS Personal Mail Utility 


ABSTRACT: 
This file contains the SDL definitions for MAIL data structures 


AUTHOR: Benn Schreiber CREATION DATE: 28-Jun-1982 
MODIFIED BY: 
v03-013 eng t13 Benn Schreiber 8-APR-1984 
New flag for attachment. 
v03-012 e.soere Benn Schreiber 18-FEB-1984 13:35:27 
flag for server loop. 
v03-011 0.50265 Benn Schreiber 5-FEB-1984 
Add new flags for distinguishing between editors. 
v03-010 eng TH Benn Schreiber 28-Dec-1983 
flags for create_isam and mail global control 
v03-009 BLS0246 Benn Schreiber 28-Nov-1983 
Add mail system global flags 
v03-008 8LS0237 Benn Schreiber 1-Sep-1983 
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Add allocated length field to TXT block 


v03-007 BLSO 35 Benn Schreiber 23-Aug-1983 
lag for non-standard file format. 
v03-006 9. S0c29 Benn Schreiber 16-Jul-1983 
Changes to support network block io 
v03-005 BLS0222 Benn Schreiber 7-May-1983 
Add CCDESC field to connect descriptor 
v03-004 BLS02¢0 Benn Schreiber = 
New bit for NOAUTOPURGE and add mail subayr Ws field 
v03-003 BLS0217 Benn Schreiber 13-Apr-1983 


Add COPYSELF flags to VMD, and external message info 
to MMB and MMH. 


v03-002 BLS0214 Benn Schreiber 27-Mar-1983 
Stabilize, remove extraneous definitions. Add NREC 
offsets in MMB and MMH. 
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constant USERNAME equals 31 prefix VMD 


a 
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Define data structures used by MAIL 


a forwarding address VMD_B_FWDLNG=0. 

module vmddef; 

aggregate vmddef structure prefix VMD_; 

constant USERNAME equals 31 prefix VMD_ tag K; 


“~~ 


SERNAME character Length 31; /* 
FLAGS structure word nes gress /* 
selfsend bitfield mask; 
selfreply bitfield mask; 
noautopurge bitfield mask; 
end flags; 
MAIL word unsigned; 


SPARE! byte unsigned dimension(2); /*SPARE B 
DIRLNG byte unsigned; /*LENGTH OF 
/*LENGTH OF 


ent vmddef; 

end_module vmddef; 

module adrdef; 

{e+ 

. Address List block entry 
Be 


aggregate adrdef structure prefix ADR_; 


flink longword unsigned; 
blink longword unsigned; 
Link longword unsigned; 
spares Longword unsigned dimension(4); 
flays structure oyte unsigned; /*Flags 
nosend bitfield 
end flags; 
naming byte unsigned; /*tLength of 
mame character length 0; 
constant "LENGTH" equals . prefix ADR_ tag C; 


end adrdef; 
end_module adrdef; 
module inkdef; 


/*LENGTH OF 
DED 


16-SEP-1984 16:41:46.8 Page 3 


The structure of the VMSMAIL.DAT file. This file contains forwarding and 
other information about a username If a record exists and does not have 


tag £ 

OSERNAME BLANK FILLED 

FLAGS 

/* send a copy to self on SEND 


/* send a copy to self on REPLY 
/* Don't autopurge on exit or “2 


gned /*COUNT OF NEW MESSAGES 
SPARE Longword unsigned dimension(7); Big Be R 


NGWORDS 
Ss 


DEV/DIR IF SET 
FULL USERNAME 
FORWARDED NAME 
NAME 


/*Forward Link to next entry 
/*Backward Link to previous 
/tLogical Link entry address 


mask; /*Do oe send to this user 


addressee name 


/*Start of addressee name 


poo 
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aggregate inkdef structure prefix LNK_; 


flink Longword unsigned; 

blink longword unsigned; 

adrcnt longword unsigned; 

context longword unsigned; 

tfradr longword unsigned; 

iosb quadword; 

sts anpare unsigned; 

spares longword unsigned dimension(2 

sparew word unsigned; 

moxchan word uns gree: 

chan word unsigned; 

flags structure ors? unsigned; 
msgsnt bitfield mask; 


fsent hitfield mask; 
blkmode bitfield mask; 
end fiags; 
nodlen byte unsigned; 
node character length 31; 
pnlen byte unsigned; 
pnam character length 0; 
constant ‘LENGTH’ equals . prefix LN 
constant ( 
out_connect 
,out_sender 
,out_ckuser 


-in_to | 
2 in_subj 
-in_file 
-jo.read 


M4 
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/*Forward Link to next entry 
/*Backward Link to prevous 

/*Count of addressees this Link 
/*Context for alternate protocol 
fine address of alt prot. image 


Pee from failing access 


/*Mailbox channel number 

/*Channel number 

/*F lags 

/*Message already sent 

/*Error occurred on initialization 
/*Send with alt protocol 

/*FROM has been sent 
/*Send/receive block mode 


/*Node name Length 
/*Storage for node name 
/*Protocol name length 
/*Start of protocol name 


K_ tag C; 


o_write 
) equals 0 Tncrement 1 prefix LNK_ tag C; 


end inkdef; 
end_module Iinkdef; 
module mmbdef; 
{ee 


/* Message descriptor block. There is one message descriptor block for each 


. message, created when the isam messag 
be 


aggregate mmbdef structure prefix MMB_; 


e file is scanned. 


4 
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rfa0 ae get unsigned; 
rfa4 word unsigned; 

txtlst Longword unsigned; 
flags structure word unsigned; 


newmsg bitfield mask; 
replied bitfield mask; 
del bitfield mask; 

extmsg bitfield mask; 
extfnf bitfield mask; 
pyenes bitfield mask; 
extnstd bitfield mask; 

end flags; 


flagval longword unsigned; 
rdisp byte unsigned; 
constant ( 


hdreclen word unsigned; 

fromdssc quadword; 

todesc quadword; 

subjdesc quadword; 

ccdesc quadword; 

nrecs rs unsigned; 

datid quadword; 

nblks longword unsigned; 

spare longword unsigned dimension(1) 
hdrec character length 


N 
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/*VBN of message in file 

/*Byte offset of message in file 
/*Pointer to text of message if present 
/*Flags word 

/*This is a new message 

/*This message has been replied to 
/*This message is deleted 

/*Message text in external file 
/*External message file not found 
/*Message text in system file 
/*External file is not var-seq file 


/*Flag value esstones by user 
/*Dispatch for mail$get_record 


/*No action 
/*Send from Line 
* to 


subj 
/* blank Line after subject 
/* setup and recurse for msg text 


So from Line with no date 


C3 
7#Length of header record | 
/*descriptor of FROM string in hd rec 
/* ditto for TO string 
/* and SUBJ 
/* and CC 
/*Number of records in message 
/*Date/time id of message text 
/*Number of blocks in msg 


/*Start of header record 


constant “LENGTH” equals . prefix MMB_ tag C; 


end mmbdef; 
end_module mmbdef ; 
module txtdef; 

Jee 


/* Text descriptor block. A Linked list of text records is created as the text 


/* of the message is read into memory. 


{/t- 
aggregate txtdef structure prefix txt_; 
next longword unsigned; 


textlen longword unsigned; 
alloc longword unsigned; 


blank 
text 
.cc / 
) equals 0 increment 1 prefix MMB_ ta 


/*Next text block or 0 if end 
/*Length of record text 
/*Size of allocated txt block 
/*Start of message text 


constant "LENGTH" equals . prefix TXT_ tag C; 


| text character length 0; 


(end txtdef; 


| 
| 


| 
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end_module txtdef; 
module mfrdef; 
{t+ 
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ere the format of a mail file record common part of record. 
oe 


aggregate mfrdef structure prefix MFR_; 


datim quadword; 


/*Date/time message received 


/*Date/times with high quadword 0 are resevered 
/* as info records 


constant ( 
lastread 
»wastename 
-fileinfo 
mw 
newms 


/*Date/time of last read message 
/*Name of wastebasket folder 
/*File status information 
/*Mailwatch info record 

/*New message information 


e 
) equals 1 tacleaent 1 prefix AFR. ta 


filkeylen byte unsigned; 
Mega character Length 39; 
data character length 0; 


C3 
f Lenath of the filing key 
/*Filing key 
/*Start of data part of record 


constant maxien equals 2048 prefix MFR_ tag C;/*Maximum Length of a record 


end mfrdef; 
end_module mfrdef; 
module mmhdef; 

/+ 


cuore a mail message header record 
he 


aggregate mmhdef structure prefix MMH_; 


flags structure word unsigned; 
newmsg bitfield mask; 
replied bitfield mask; 
skip! bitfield mask; 
extmsg bitfield mask; 
Sysese bitfield mask; 

end flags; 

flagsiz byte unsigned; 

flagval longword unsigned; 

hdspare byte unsigned; 

datid quadword; 


miscdat character Length 0; 


/*This is a new message d 
/*This message has been replied to 
/*Skip a bit ‘ ; 
/*Message text in external file 
/*Message text in system file 


/*Size of thee string if ascii 
/*Value of /FLAG= 

/*Spare byte to align datid 
/*Key ID of data record 
/*Start of variable data 
/*Format: type.w,size.w,data.v 


constant ( /*Defined type values 
from /*the FROM field 
to. /*the TO. field 
-subj /*the SUBJ field 
occ /*the CC__ field 
mw /*MAILWATCH info a 
onrec /*Number of records in message i 
,extmsg /*Message is in external file; this is spec 


RE Ei Sal 


| 
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end mmhdef; 

end_module mmhdef; 

module cnctdef; 
/Descriptor for a message 


flink longword unsigned; 
blink longword unsigned; 
fromdesc quadword; 
todesc quadword; 
subjdesc quadword; 
ccdesc quadword; 

adrist quadword; 

Lnklst quadword; 


iosb structure quadword; 
iosb1 word unsigned; 
iosb2 word unsigned; 
iosb3 word unsigned; 
iosb4 word unsigned; 
end iosb; 


) equals 0 increment 1 prefix MMH_ ta 
/*5- sf 


naddrs longword unsigned; 
msgbliks longword unsigned; 
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cs 
reserved to DIGITAL 
5535 


reserved for customers 


aggregate cnctdef structure prefix cnct_; 


/*Forward Link in queue 
/*Backward Link 

/*Descriptor of ''from’’ 

/*Descriptor of ‘'to’ es 
/*Descriptor of ‘'subject'’ 
/*Descriptor of ‘CC list’ | 
/*Listhead of addressees this message 
/*Listhead for connections outbound 
/*Number of addressees this message 
Ae a of blocks in message 

® 


filerr Longword unsigned; 
filests longword unsigned; 
filestv longword unsigned; 


/*First error message (i.e. OPENOUT) 
/*Status if error opening temp file 
/*STV from the error 


esdesc quadword; 
sendq quadword; 
nrecs longword unsigned; 


filrat byte unsigned; 
filrfm byte unsigned; 
chan word unsigned; 


/*Descriptor of temp file 
/*Fud/bkwd Links for send queue 
/*Number of records in message 


spares longword unsigned Sraenesentets /*To avoid recompilation! 


*Record attributes of message file 
/*Record format of message file 
/*Channel number 


flags structure byte unsigned; 
disconnect bitfield mask; 
sq bitfield mask; 

blkmode bitfield mask; 

end flags; d 
tran byte unsigned; /*Operation reading from remote Link 
constant ( /*Defined type values 


/*A disconnect has occurred this Link 
/*This Link is in SEND 
/*Incoming Link is block mode 


getsender /*the sender name 
-getaddr /*the addressee names 
sgetto | /*the TO field 
,getsub)j /*the SUBJ field 


-getmsg /*the message itself 
) equals 0 increment 1 prefix CNCT_ tag C; 


buffer character Length 512; ; /tInput buffer 
constant bufsiz equals 512 prefix CNCT_ tag C; 


rab character length 0; /*Start of RAB 
constant “‘LENGTH’' equals . prefix CNCT_ tag C; 
end cnctdef; 


end_module cnctdef; 
one cnfdef; 


Pocenttguret ton data passed/read from remote node 
Re 
aggregate cnfdef structure prefix cnf_; 


D 
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version byte unsigned; 


constant vers equals 3 prefix CNF_ 


eco byte unsigned; 


constant eco equals 0 prefix CNF 


custeco byte unsigned; 
os byte unsigned; 


a protocol version 
a . 
7#MAIC=11 protocol ECO level 


ta 
7*MATL-i1 protocol Customer ECO 
/*Operating system number 


constant vaxvms equals 7 prefix CNF_ tag C; 

options structure ey gee unsigned;/*Options | . 
not it yas bitfield mask; /*Send ‘receiving user notified msgs 
end options; 

iomode structure longword unsigned; ye te send/receive mode 


lksend bitfield mask; * Sender wants to send in block mode 

blkrecv bitfield mask; /* Receiver will accept blocks 
pfxsend bitfield mask; /* Sender wants to add node name 
pfxrecv bitfield mask; /* Receiver will let sender do it 
ccsend bitfield mask; /* Sender wants to send CC field 
ccrecv bitfield mask; /* Receiver will accept CC field 
end iomode; 

rfm byte unsigned; /*Message record format 

rat nm fe unsigned; /*Message record attributes 

spare! byte unsigned; /*Spare byte 

spare2 byte unsigned; /*Spare byte 


constant "LENGTH" equals . prefix CNF_ tag C; 
end cnfdef; 

end_module cnfdef; 

reed sysfdef; 

nar \oge defined in MAILSSYSTEM_FLAGS logical name 


aggregate sysfdef structure prefix sysf_; 


flags structure iemore unsigned; ’ 
clu_mail bitfield mask; /*ALL accounts are cluster accessible 


/* (i.e. homogeneous cluster) 
clulorkthru bitfield mask; /*Use set brk$m_cluster 
notify_time bitfield mask; /*Include time in notify message 


end flags; 
end sysfdef; 
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end_module Fat 
module prade 
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ia defined flags passed to mail$print 


aggregate praqdef structure prefix praq_; 


flags structure longword unsigned; 
notify bitfield mask; 
force bitfield mask; 
all bitfield mask; 
end flags; 
end pradef; 


end_module pradef; 
module merdef; 


/*notify when done 
/*close open job, start printing 
/*print all selected messages 


— passed to mail$create_isam and copy_msgs 
wm 


aggregate mcrdef structure prefix mcr_; 
flags structure pongueré unsigned; 
field mask; 


nil bitfield mask; 
use _datim bitfield mask; 


telT_new bitfield mask; 
cnct_rab bitfield mask: 
delmsg bitfield mask; 
confnew bitfield mask; 
exec bitfield mask; 
end flags; 

end mcrdef; 


end_module mcrdef; 
module maifdef; 


/aRALL control flags 


/*Deliver as nae mail 

/*ALL soonzeee 

/*Create file if necessary 

/*Do not allow others access 

/*Use date/time passed, not current 
/*Tell thet new folder created 
/*Input file RAB is in cnct block 
/*Delete message after copying 
/*Confirm if new folder created 
/*Use exec mode logicals only 


aggregaie maifdef structure prefix maif_; 


flags structure senguere unsigned; 
isam bitfield m 
netjob bitfield mask: 


iterm bitfield mask; 
oterm bitfield mask; 
scope bitfield mask; 
rdhold bitfield mask 
read_fl bitfield mask; 
recl bitfield mask 
ctricfl bitfield mask; 


/*Current file is isam file 

/*Network receiver mode 

/*Input is a terminal 

7*Output is a terminal 

/*Qutput is a scope 

/*Record remainder from ff to print 

ae has been read, can be deleted 
oP e/reclaim, not auto-mode 
*CTRL/C typed 
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edtxyz bi 
server loop 
attachment 

end flags; 
end maitdets 


end_module maifdef; 


F 
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| 


ieMe Net SoBe att 
/*In the Stave messege file 
/*Use user-specified mailedit.com 
/*User is in captive account 
/*Callable editor specified 
/*Callable EDT specified 

ot recat XYZ s a 

/*Server should 
/*SEND/ATTACH seer tt ted 


alt et sai 
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